home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / powertb.arc / WINDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-16  |  1.2 KB  |  55 lines
  1. { demonstration program for removable window package }
  2.  
  3. {$i windows.inc}
  4.  
  5. var i : integer;
  6.  
  7. begin
  8.    initwin;
  9.    writeln('Now and every time the action stops,');
  10.    writeln('Press ENTER to continue.');
  11.    readln;
  12.    for i := 1 to 20 do writeln('    This is the original screen.');
  13.  
  14.    textcolor(7); textbackground(1);
  15.    mkwin(3,3,50,18);
  16.    for i := 1 to 5 do writeln('This is the first window...');
  17.    readln;
  18.  
  19.    textcolor(0); textbackground(3);
  20.    mkwin(10,5,70,20);
  21.    for i := 1 to 5 do writeln('Second window...');
  22.    readln;
  23.  
  24.    textcolor(0); textbackground(5);
  25.    mkwin(15,15,45,23);
  26.    writeln('Third window...');
  27.    readln;
  28.  
  29.    textcolor(0); textbackground(7);
  30.    mkwin(55,10,79,25);
  31.    writeln('Fourth window...');
  32.    readln;
  33.  
  34.    rmwin; { remove fourth window }
  35.    readln;
  36.  
  37.    textcolor(0); textbackground(3);
  38.    rmwin; { remove third window }
  39.    writeln;
  40.    writeln('We are back in the second window...');
  41.    readln;
  42.  
  43.    textcolor(7); textbackground(1);
  44.    rmwin; { remove third window }
  45.    writeln;
  46.    writeln('This is the first window again!');
  47.    readln;
  48.  
  49.    textcolor(7); textbackground(0);
  50.    rmwin; { remove first window }
  51.    readln;
  52.  
  53.  
  54. end.
  55.